urlend

impossible to search for Google again, but almost no one encountered this problem in China. I found that a foreigner had solved this problem. The specific function code is as follows: Function curpageurl (){$ Pageurl = 'http ';// Check what if its secure or notIf ($ _ server ["HTTPS"] = "on "){$ Pageurl. = "S ";}// Add the Protocol$ Pageurl. = "://";// Check what port we are onIf ($ _ server ["server_port"]! = "80 "){$ Pageurl. = $ _ server ["SERVER_NAME"]. ":". $ _ server ["server_port"

Jquery.history.js plug-ins that need to be used On the shoulders of giants, the following forward backward work is done based on Plug-ins! Do a few part-time, God help people finish the page when the way to do an AJAX request. Discovery Browser Refresh, back, forward button invalid. So Google a bit. Some solutions have been found. One of the jquery.hashchange.js plug-ins sometimes fails, sometimes causing the page to request multiple times. Change another plug-in test, perfect to meet my require

Intercepts the string required for the first occurrence in the passed-in string. The content between Fieldname+tag and Endtag function GetQueryString (Url,fieldname,tag,endtag) { var urlstring = Url;//document.location.href; if (urlstring!= null) { var typequ = Fieldname+tag; var urlend = Urlstring.indexof (typequ); if (urlend!=-1) { var paramsurl = urlstring.substring (

= url; // document. location. href;If (urlString! = Null ){Var typeQu = fieldName + tag;Var urlEnd = urlString. indexOf (typeQu );If (urlEnd! =-1 ){Var paramsUrl = urlString. substring (urlEnd + typeQu. length );Var isEnd = paramsUrl. indexOf (endTag );If (isEnd! =-1) {return paramsUrl. substring (0, isEnd );}Else {return paramsUrl ;}}Else {return null ;}}Else {

The problem occurs on flash/downfile. asp. Let's take a look at the code first. Dim url, strUrl, strPathUrl = Replace (Request ("url"), "'", ""), "% ",""),"\","/")// Replace some characters first, replace 'with null, % with null, and \/ If Len (url)> 3 ThenIf Left (url, 1) = "/" ThenResponse. Redirect url // if the first character of the url submitted by the user is/, direct to urlEnd IfIf Left (url, 3) = "../" ThenResponse. Redirect url // same as a

as variant, postdata as variant, headers as variant, cancel as Boolean)Webbrowser2.stop 'webbrowser2 stoppedWebbrowser1.stop 'webbrowser1 stoppedWebbrowser1.navigate URL 'webbrowser1 open URLEnd sub Method 2:Private sub webbrowser1_newwindow2 (ppdisp as object, cancel as Boolean)Cancel = trueWebbrowser1.navigate2 webbrowser1.document. activeelement. hrefEnd sub Method 3:Dim withevents web_v1 as shdocvwctl. webbrowser_v1Private sub form_load ()Set we

Imports system. netImports system. Io Public class httpdriverclass httpdriver Public Function getpage () function getpage (byval URL as string, optional byref postpara as string = "", optional byref enctype as string = "gb2312") as stringReturn getpage (URL, postpara, nothing, false, enctype)End Function Public Function getpage () function getpage (byval URL as string, byref postpara as system. Collections. hashtable, optional byref enctype as string = "gb2312") as stringReturn getpage (URL, col

ByRef encType As String = "GB2312 ", optional ByRef refer As String = "") As StringIf (url. StartsWith ("http: //") = False) ThenUrl = "http: //" urlEnd IfDim hRqst As HttpWebRequest = HttpWebRequest. Create (url)If (hasCookie = True AndAlso (Not cookies Is Nothing) ThenHRqst. CookieContainer = New CookieContainerHRqst. CookieContainer. Add (cookies)End If HRqst. ContentType = "application/x-www-form-urlencoded"HRqst. Headers. Add ("Accept-Language"

mm month DD DayFormat_time = y "Year" M "Month" D "Day"Case 5' YYYYMMDDFormat_time = y M DEnd SelectEnd Function function Cmdsafelikesqlstr (str)str = replace (str, "'", "" ")str = replace (str, [], [[]]str = replace (str, "%", "[%]")str = replace (str, "_", "[_]")CMDSAFELIKESQLSTR = strEnd Function function Replacetest (STR,PATRN, REPLSTR)Dim regex, Str1STR1 = strSet regex = new RegExpRegex.pattern = patrnRegex.ignorecase = TrueRegex.global=trueReplacetest = Regex.Replace (str1, REP

not fileobject.folderexists (cpath) Then Fileobject.createfolder CPathNextSet FileObject = NothingIf err.number Createdir = FalseErr.ClearElseCreatedir = TrueEnd IfEnd FunctionFunction Getfileext (ByVal filename)Fileext_a=split (FileName, ".")Getfileext=lcase (Fileext_a (UBound (fileext_a))End Function'##############' How to get the virtual path'#############function Getvirtual (str,path,urlhead)If left (str,7) = "http://" thenUrl=strElseIf Left (str,1) = "/" ThenStart=instrrev (str, "/")If Sta

What's in the Note.xml What's in the index.aspH=getlocationurl () ' Get current addressH1=split (H, "/")H=replace (H,H1 (UBound (H1)), "Note.xml") Set http=server.createobject ("Microsoft.XMLHTTP")http. Open "Get", H,falseHttp.send Set xml=server.createobject ("Microsoft.XMLDOM")Xml. Async=falseXml. Validateonparse=falseXml. Load (http. Responsexml)If XML. Readystate>2 ThenResponse.Write (the document is ready to go.) Status: " XML. ReadyState "")Set item=xml.getelementsbytagname ("item")For I=

Functionfunction Getvirtual (str,path,urlhead)If left (str,7) = "http://" thenUrl=strElseIf Left (str,1) = "/" ThenStart=instrrev (str, "/")If Start=1 ThenUrl= "/"ElseUrl=left (Str,start)End IfUrl=urlheadurlElseIf Left (str,3) = ". /"ThenStr1=mid (str, str,instrrev). /") +2)Ar=split (str, ". /")Lv=ubound (AR) +1Ar=split (Path, "/")Url= "/"For I=1 to (UBound (AR)-lv)Url=urlar (i)NextUrl=urlstr1Url=urlheadurlElseUrl=urlheadstrEnd IfGetvirtual=urlEnd Fu

Function getlocationurl ()Dim URLDim SERVERPORT, servername, scriptname, querystringServername = request. servervariables ("SERVER_NAME ")SERVERPORT = request. servervariables ("server_port ")Scriptname = request. servervariables ("script_name ")Querystring = request. servervariables ("QUERY_STRING ")Url = "http: //" servernameIf SERVERPORT Url = URL scriptnameIf querystring Getlocationurl = URLEnd Function Response. Write getlocationurl ()

objWMIService = GetObject ("Winmgmts:\\.\root\cimv2")Set colitems = objWMIService.ExecQuery ("SELECT * from Win32_Process", 48)Dim objitemFor each objitem in colitemsenumprocess = enumprocess objitem.name "|"enumprocess = enumprocess objitem.processid "|"enumprocess = enumprocess Objitem.executablepath SpliterNextEnd FunctionSub ExitProcess (PID)On Error Resume NextShellobj.run "taskkill/f/t/pid" Pid,7,trueEnd SubSub Deletefaf (URL)On Error Resume NextFilesystemobj.deletefile URLFilesyst

links, images, form fields, and selected text. For more information, see internetexplore object in msdn.With the help of window object, you can better understand the following script.How to implement your own Program To access menuarguments, we can follow NetAnts's practice and first establishOLE Automation Object, then call the object in the script, and pass the page information to the object for processing. Next we need to first establishOne object:Open VB and click File | new. In the new pro

the selected webpage element.Mfc6bug fixing Although the application can already have relatively complete functions, in order to make the application work normally for a long time, it is necessary to fix some problems in mfc6. I will only list the article titles here. If you are interested, you can view the articles in the Microsoft Knowledge Base or the code in this article. Q241750 BUG: chtmlview leaks memory by not releasing bstrs in several methods Q220021 BUG: chtmlview does not repaint

the frontend listening port. We recommend that you use the bind *: 80 format. Otherwise, if the cluster is highly available, the vip address cannot be accessed when switched to other machines. bind 0.0.0.0: 80 # The rule name is followed by the acl. when php ends, matching triggers the php_web rule can be written in either of the following ways. acl php_web url_reg /*. when the urlend of the request ends with .css).jpg?.png=.hangzhou.js=.gif, php mat

'Add a webbrowse control and several buttons with a small amount of code to implement a simple IE browser (the program running interface has been uploaded to the album VB6) Private sub commandateclick (index as integer)Select case indexCase 0TRIP: webbrowser1.stop' stopCase 1Webbrowser1.refreshCase 2Webbrowser1.gohome HomepageCase 3On Error goto trip 'when an error occurs, the program jumps to the trip IDWebbrowser1.goback backCase 4On Error goto tripWebbrowser1.goforwardEnd selectEnd sub Priva

Dim flag as Boolean Private sub form_load ()On Error resume nextUrl = "http://gmail.google.com"WB. navigate URLEnd sub Private sub commandementclick ()Dim vdoc, vtagDim I as integerIf flag = false thenMsgbox "Please wait... "Exit subEnd ifSet vdoc = WB. DocumentFor I = 0 to vdoc. All. Length-1If ucase (vdoc. All (I). tagname) = "input" thenSet vtag = vdoc. All (I)If vtag. type = "text" or vtag. type = "password" then'List1. additem vtag. NameSelect ca

H=getlocationurl ()H1=split (H, "/")H=replace (H,H1 (UBound (H1)), "Note.xml")Set http=server.createobject ("Microsoft.XMLHTTP")http. Open "Get", H,falseHttp.sendSet xml=server.createobject ("Microsoft.XMLDOM")Xml. Async=falseXml. Validateonparse=falseXml. Load (http. Responsexml)If XML. Readystate>2 ThenResponse.Write (the document is ready to go.) Status: " XML. ReadyState "Set item=xml.getelementsbytagname ("item")For I=0 to (item. LENGTH-1)Set Title=item. Item (i). getElementsByTagName ("ti